← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:04 2022

Filename(eval 435)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 155285 statements in 137ms
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
419722131ms213msJSON::Schema::Modern::Error::::newJSON::Schema::Modern::Error::new
11143µs52µsJSON::Schema::Modern::Error::::BEGIN@126JSON::Schema::Modern::Error::BEGIN@126
11113µs32µsJSON::Schema::Modern::Error::::BEGIN@14.335JSON::Schema::Modern::Error::BEGIN@14.335
1117µs12µsJSON::Schema::Modern::Error::::BEGIN@111JSON::Schema::Modern::Error::BEGIN@111
1117µs30µsJSON::Schema::Modern::Error::::BEGIN@116JSON::Schema::Modern::Error::BEGIN@116
1117µs21µsJSON::Schema::Modern::Error::::BEGIN@121JSON::Schema::Modern::Error::BEGIN@121
1115µs15µsJSON::Schema::Modern::Error::::BEGIN@106JSON::Schema::Modern::Error::BEGIN@106
1115µs5µsJSON::Schema::Modern::Error::::BEGIN@19.336JSON::Schema::Modern::Error::BEGIN@19.336
1115µs19µsJSON::Schema::Modern::Error::::BEGIN@77JSON::Schema::Modern::Error::BEGIN@77
1113µs9µsJSON::Schema::Modern::Error::::BEGIN@82JSON::Schema::Modern::Error::BEGIN@82
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
223µs my $isa_check_for_instance_5flocation = ${$_[1]->{"\$isa_check_for_instance_5flocation"}};
310s my $isa_check_for_keyword_5flocation = ${$_[1]->{"\$isa_check_for_keyword_5flocation"}};
411µs my $coerce_for_exception = ${$_[1]->{"\$coerce_for_exception"}};
510s my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
611µs my $coerce_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$coerce_for_absolute_5fkeyword_5flocation"}};
710s my $isa_check_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$isa_check_for_absolute_5fkeyword_5flocation"}};
811µs my $isa_check_for_mode = ${$_[1]->{"\$isa_check_for_mode"}};
910s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
1010s my $isa_check_for_keyword = ${$_[1]->{"\$isa_check_for_keyword"}};
1110s my $isa_check_for_error = ${$_[1]->{"\$isa_check_for_error"}};
1211µs my $isa_check_for_exception = ${$_[1]->{"\$isa_check_for_exception"}};
13 package JSON::Schema::Modern::Error;
14244µs251µs
# spent 32µs (13+19) within JSON::Schema::Modern::Error::BEGIN@14.335 which was called: # once (13µs+19µs) by Sub::Quote::_clean_eval at line 14
no warnings 'closure';
# spent 32µs making 1 call to JSON::Schema::Modern::Error::BEGIN@14.335 # spent 19µs making 1 call to warnings::unimport
15
# spent 213ms (131+81.8) within JSON::Schema::Modern::Error::new which was called 4197 times, avg 51µs/call: # 4196 times (131ms+81.8ms) by JSON::Schema::Modern::Utilities::E at line 227 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Utilities.pm, avg 51µs/call # once (49µs+31µs) by JSON::Schema::Modern::Utilities::E at line 177 of Sub/Defer.pm
sub new {
16 ($_QUOTED,$_UNQUOTED) if 0;
17# BEGIN quote_sub PRELUDE
18package JSON::Schema::Modern::Error;
19
# spent 5µs within JSON::Schema::Modern::Error::BEGIN@19.336 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 24
BEGIN {
2011µs $^H = 2018;
2111µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
2213µs %^H = (
23 );
241181µs15µs}
# spent 5µs making 1 call to JSON::Schema::Modern::Error::BEGIN@19.336
25# END quote_sub PRELUDE
2641961.22ms my $invoker = CORE::shift();
2741961.92ms my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
2841961.81ms if ($class ne "JSON::Schema::Modern::Error") {
29 if ($Moo::MAKERS{$class}) {
30 if ($Moo::MAKERS{$class}{constructor}) {
31 package JSON::Schema::Modern::Error;
32 return $invoker->SUPER::new(@_);
33 }
34 Moo->_constructor_maker_for($class);
35 return $invoker->new(@_);
36 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
37 return $meta->new_object(
38 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
39 : $class->Moo::Object::BUILDARGS(@_)
40 );
41 }
42 }
43 my $args = scalar @_ == 1
44 ? CORE::ref $_[0] eq 'HASH'
45419612.6ms ? { %{ $_[0] } }
46 : Carp::croak("Single parameters to new() must be a HASH ref"
47 . " data => ". $_[0])
48 : @_ % 2
49 ? Carp::croak("The new() method for $class expects a hash reference or a"
50 . " key/value list. You passed an odd number of arguments")
51 : {@_}
52 ;
5341967.55ms if (my @missing = grep !exists $args->{$_}, "error", "instance_location", "keyword", "keyword_location") {
54 Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));
55 }
5641962.08ms my $new = bless({}, $class);;
5741961.35ms(exists $args->{"absolute_keyword_location"} and ($new->{"absolute_keyword_location"} = scalar do { my $value = do {
5841968.81ms local $Method::Generate::Accessor::CurrentAttribute = {
59 init_arg => "absolute_keyword_location",
60 name => "absolute_keyword_location",
61 step => "coercion",
62 };
6341962.36ms (my $_return),
64 (my $_error), (my $_old_error = $@);
6541961.73ms (eval {
66 ($@ = $_old_error),
67 ($_return =
68419611.4ms419674.9ms$coerce_for_absolute_5fkeyword_5flocation->($args->{"absolute_keyword_location"})),
# spent 74.9ms making 4196 calls to JSON::Schema::Modern::Error::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Error.pm:39], avg 18µs/call
69 1
70 } or
71 $_error = CORE::ref $@ ? $@ : "coercion for \"absolute_keyword_location\" failed: ".$@);
7241961.67ms ($@ = $_old_error),
73 (defined $_error and CORE::die $_error);
7441964.00ms $_return;
75}
76;
771259018.9ms83943.65ms
# spent 19µs (5+14) within JSON::Schema::Modern::Error::BEGIN@77 which was called: # once (5µs+14µs) by Sub::Quote::_clean_eval at line 77
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_absolute_5fkeyword_5flocation, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","absolute_keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"absolute_keyword_location\"}"); $value }),
# spent 1.93ms making 4196 calls to Scalar::Util::blessed, avg 461ns/call # spent 1.68ms making 4196 calls to UNIVERSAL::isa, avg 401ns/call # spent 19µs making 1 call to JSON::Schema::Modern::Error::BEGIN@77 # spent 14µs making 1 call to warnings::unimport
78 $value
79}
80)),
8141961.47ms(exists $args->{"error"} and ($new->{"error"} = scalar do { my $value = $args->{"error"};
82167868.10ms215µs
# spent 9µs (3+6) within JSON::Schema::Modern::Error::BEGIN@82 which was called: # once (3µs+6µs) by Sub::Quote::_clean_eval at line 82
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_error, "Str", $value, "attribute_name","error","attribute_step","isa check","mgaca","0","varname","\$args->{\"error\"}"); $value }),
# spent 9µs making 1 call to JSON::Schema::Modern::Error::BEGIN@82 # spent 6µs making 1 call to warnings::unimport
83 $value
84}
85)),
86(exists $args->{"exception"} and ($new->{"exception"} = scalar do { my $value = do {
87 local $Method::Generate::Accessor::CurrentAttribute = {
88 init_arg => "exception",
89 name => "exception",
90 step => "coercion",
91 };
92 (my $_return),
93 (my $_error), (my $_old_error = $@);
94 (eval {
95 ($@ = $_old_error),
96 ($_return =
97$coerce_for_exception->($args->{"exception"})),
98 1
99 } or
100 $_error = CORE::ref $@ ? $@ : "coercion for \"exception\" failed: ".$@);
101 ($@ = $_old_error),
102 (defined $_error and CORE::die $_error);
103 $_return;
104}
105;
106246µs225µs
# spent 15µs (5+10) within JSON::Schema::Modern::Error::BEGIN@106 which was called: # once (5µs+10µs) by Sub::Quote::_clean_eval at line 106
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[JSON::PP::Boolean]))) or Type::Tiny::_failed_check($isa_check_for_exception, "InstanceOf[\"JSON::PP::Boolean\"]", $value, "attribute_name","exception","attribute_step","isa check","mgaca","0","varname","\$args->{\"exception\"}"); $value }),
# spent 15µs making 1 call to JSON::Schema::Modern::Error::BEGIN@106 # spent 10µs making 1 call to warnings::unimport
107 $value
108}
109)),
11041961.54ms(exists $args->{"instance_location"} and ($new->{"instance_location"} = scalar do { my $value = $args->{"instance_location"};
111167866.42ms217µs
# spent 12µs (7+5) within JSON::Schema::Modern::Error::BEGIN@111 which was called: # once (7µs+5µs) by Sub::Quote::_clean_eval at line 111
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_instance_5flocation, "Str", $value, "attribute_name","instance_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"instance_location\"}"); $value }),
# spent 12µs making 1 call to JSON::Schema::Modern::Error::BEGIN@111 # spent 5µs making 1 call to warnings::unimport
112 $value
113}
114)),
11541961.72ms(exists $args->{"keyword"} and ($new->{"keyword"} = scalar do { my $value = $args->{"keyword"};
116167865.09ms253µs
# spent 30µs (7+23) within JSON::Schema::Modern::Error::BEGIN@116 which was called: # once (7µs+23µs) by Sub::Quote::_clean_eval at line 116
(do { no warnings "void"; package Type::Tiny; ((do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } } or (!defined($value)))) or Type::Tiny::_failed_check($isa_check_for_keyword, "Str|Undef", $value, "attribute_name","keyword","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword\"}"); $value }),
# spent 30µs making 1 call to JSON::Schema::Modern::Error::BEGIN@116 # spent 23µs making 1 call to warnings::unimport
117 $value
118}
119)),
12041961.11ms(exists $args->{"keyword_location"} and ($new->{"keyword_location"} = scalar do { my $value = $args->{"keyword_location"};
121167865.86ms235µs
# spent 21µs (7+14) within JSON::Schema::Modern::Error::BEGIN@121 which was called: # once (7µs+14µs) by Sub::Quote::_clean_eval at line 121
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_keyword_5flocation, "Str", $value, "attribute_name","keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword_location\"}"); $value }),
# spent 21µs making 1 call to JSON::Schema::Modern::Error::BEGIN@121 # spent 14µs making 1 call to warnings::unimport
122 $value
123}
124)),
125419628.0ms(exists $args->{"mode"} and ($new->{"mode"} = scalar do { my $value = $args->{"mode"};
1262318µs261µs
# spent 52µs (43+9) within JSON::Schema::Modern::Error::BEGIN@126 which was called: # once (43µs+9µs) by Sub::Quote::_clean_eval at line 126
(do { no warnings "void"; package Type::Tiny; ((defined($value) and !ref($value) and $value =~ m{\A(?:(?:evaluate|traverse))\z})) or Type::Tiny::_failed_check($isa_check_for_mode, "Enum[\"traverse\",\"evaluate\"]", $value, "attribute_name","mode","attribute_step","isa check","mgaca","0","varname","\$args->{\"mode\"}"); $value }),
# spent 52µs making 1 call to JSON::Schema::Modern::Error::BEGIN@126 # spent 9µs making 1 call to warnings::unimport
127 $value
128}
129)),
130 return $new;
131 }
13211µs $$_UNQUOTED = \&new;
133}
13419µs1;
135
136;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.